home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Ham⁄GPS / SoftKiss.src.1.8 Folder / SoftKiss.src.1.8.sit / SoftKiss.src.1.8 / lib / sfk_rand.c < prev    next >
Text File  |  1992-06-19  |  290b  |  26 lines
  1. /*
  2.  * generate random 32bit numbers
  3.  */
  4.  
  5. #include "sfk_die.h"
  6.  
  7. static unsigned long seed;
  8.  
  9. /*
  10.  * see knuth Volume 2 pages 9 and 15
  11.  */
  12. unsigned long lrand()
  13. {
  14.     seed=seed*11597L+199L;
  15.     return seed;
  16. }
  17. /*
  18.  * pick a starting point for lrand
  19.  */
  20. void init_lrand(void)
  21. {
  22.     GetDateTime(&seed);
  23. }
  24.  
  25.  
  26.